home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
mail
/
thor201.lha
/
THOR_2.0
/
thor.lha
/
rexx
/
PackBBS.br
< prev
next >
Wrap
Text File
|
1995-05-15
|
1KB
|
78 lines
/* PackBBS.br
*
* Packs bbs'es.
*
* Script by: Eivind Nordseth, Ultima Thule Software.
*/
/* trace results */
parse arg argument
if ~show('p', 'BBSREAD') then do
address command
"run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
"WaitForPort BBSREAD"
end
address BBSREAD
if argument = '' then
do
say '$VER: PackBBS.br 3.1 (31.08.94)'
say 'Packs one or ALL BBSes.'
say 'Template:' BBSNAME
exit
end
if argument = "ALL" then
do
GETBBSLIST stem BBSLIST
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
do n=1 to BBSLIST.COUNT
say 'Packing bbs:' BBSLIST.n
GETCONFLIST stem CONFLIST '"'||BBSLIST.n||'"'
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
do i=1 to CONFLIST.COUNT
say 'Packing conference:' CONFLIST.i
PACKDATAFILE bbsname '"'||BBSLIST.n||'"' confname '"'||CONFLIST.i||'"' SHOWPROGRESS
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
end
end
end
else
do
GETCONFLIST stem CONFLIST argument
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
do i=1 to CONFLIST.COUNT
say 'Packing conference:' CONFLIST.i
PACKDATAFILE argument confname '"'||CONFLIST.i||'"' SHOWPROGRESS
if(rc ~= 0) then
do
say BBSREAD.LASTERROR
exit
end
end
end